Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'ЦbҲդոլ
    With ActiveWindow.VisibleRange.Cells(1, 1)
        Me.Shapes(1).Top = .Top + 10			'wKWm
        Me.Shapes(1).Left = .Left + 10
    End With
End Sub

